home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d19
/
dorpch37.arc
/
DOORPCH.END
< prev
next >
Wrap
Text File
|
1991-01-01
|
4KB
|
142 lines
' *****************************************************************************
' * DOORPCH.END Version 3.7 for Doors *
' * By Raymond Clements, Clint Labarthe *
' * Terry Shockley, Harold Thomson & Ben Perron *
' * Copyright (C), 1987, 1988, 1989, 1990 All Rights Reserved *
' * This logic begins at line number (label) 10000. *
' * *
' * It MUST be "$INCLUDEd" at the END of your program. *
' *****************************************************************************
ERR.ROUTINE:
10000 SELECT CASE ERR
CASE IS=53
IF ERREXP%=53 THEN
CALL OUT.PUT
ERREXP%=1
RESUME NEXT
END IF
LN$="File not found."
CASE IS=54
LN$="Bad file mode or file not open."
CASE IS=57
IF ERREXP%=57 THEN
IF ERRCNT%<10 THEN
ERRCNT%=ERRCNT%+1
ERREXP%=1
RESUME NEXT
END IF
END IF
LN$="Comm Port I/O Error."
CASE IS=61
LN$="Disk is full!"
CASE IS=62
LN$="Input past end of file."
CASE IS=63
IF ERREXP%=70 THEN
IF ERRCNT%<50 THEN
ERRCNT%=ERRCNT%+1
D.TIME%=3: CALL DELAY.TIME(D.TIME%)
RESUME
END IF
END IF
LN$="Bad record number."
CASE IS=64
LN$="Bad file name specified."
CASE IS=70
IF ERREXP%=70 THEN
IF ERRCNT%<50 THEN
ERRCNT%=ERRCNT%+1
D.TIME%=3: CALL DELAY.TIME(D.TIME%)
RESUME
END IF
END IF
LN$="Permission denied."
CASE IS=75
LN$="Path/File access error."
CASE IS=76
LN$="Path not found."
CASE ELSE
LN$="Unknown error."
END SELECT
GOSUB 10025
LN$="Please notify SysOp: Program failure in Main Module of "+PROGNAME$+".": GOSUB 10025
LN$="Error #"+STR$(ERR)+" in line"+STR$(ERL)+".": GOSUB 10025
ERREXP%=ERR
ERRCNT%=-1
10020 CALL EXITG
10025 IF COMPRTOPN%<>1 THEN
PRINT LN$
LN$=""
ELSE
CALL OUT.PUT
END IF
RETURN
'
'If your programs require these lines then remove the "'"s.
'
'10170 CALL OUT.PUT
' RETURN
'10185 CALL CLR.SCRN
' RETURN
'10200 CALL OUT.NCR
' RETURN
'10230 CALL IN.PUT
' RETURN
'10235 CALL GET.KEY
' RETURN
'10400 'Return to PCBoard
'10410 CALL EXITG
'10450 CALL SCRN.POS
' RETURN
'10500 CALL MUSICG
' RETURN
'SET.COLORS:
' CALL SET.COLORS
' RETURN
'BLNKRED:
' BLINK%=1
'RED:
' FGC%=1
' RETURN
'BLNKGREEN:
' BLINK%=1
'GREEN:
' FGC%=2
' RETURN
'BLNKYELLOW:
' BLINK%=1
'YELLOW:
' HIGH%=1
' FGC%=3
' RETURN
'BLNKBLUE:
' BLINK%=1
'BLUE:
' FGC%=4
' RETURN
'BLNKMAGENTA:
' BLINK%=1
'MAGENTA:
' FGC%=5
' RETURN
'BLNKCYAN:
' BLINK%=1
'CYAN:
' FGC%=6
' RETURN
'BLNKWHITE:
' BLINK%=1
'WHITE:
' FGC%=7
' RETURN
'REDWHT:
' FGC%=1
' BGC%=7
' HIGH%=0
' RETURN
'BLKWHT:
' FGC%=0
' BGC%=7
' RETURN